home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 2 / 64er_Magazin_Sonderheft_02_86-02_1986_Markt__Technik_de.d64 / listing 11 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  1.9 KB  |  86 lines
  1. 1000 rem *** jongleur ***
  2. 1010 :
  3. 1020 :
  4. 1030 rem ** ausgabe programmeldung
  5. 1040 :
  6. 1050 print "[147]bitte warten";
  7. 1060 :
  8. 1070 :
  9. 1080 rem ** sprite-daten laden
  10. 1090 :
  11. 1100 for n = 832 to 1023
  12. 1110 :   read spdta
  13. 1120 :   if spdta = -1 then print " ."; : goto 1140
  14. 1130 :   poke n, spdta
  15. 1140 next n
  16. 1150 :
  17. 1160 data   0, 16,  0,  0,  0,  0
  18. 1170 data   1,  0,128,  0,  0,  0
  19. 1180 data   0,  0,  0,  0,120,  0
  20. 1190 data   4,120, 16,  0,120,  0
  21. 1200 data   0,120,  0, 12, 24,  0
  22. 1210 data  15,255, 16,  0, 61,128
  23. 1220 data   0, 60,176,  4, 24,240
  24. 1230 data   0, 61,  0,  0, 60,  0
  25. 1240 data   0, 36,  0,  0, 36,  0
  26. 1250 data   0, 36,  0,  0, 36,  0
  27. 1260 data   0,102,  0, -1
  28. 1270 :
  29. 1280 data   0,  8,  0,  0, 64,  0
  30. 1290 data   0,  0,  0,  0,  0, 64
  31. 1300 data   0,  0,  0,  4, 60,  0
  32. 1310 data   0, 60,  0,  0, 60,  0
  33. 1320 data   0, 60, 16,  8, 24,  0
  34. 1330 data  13,255,  0, 15, 61, 48
  35. 1340 data   0, 61,240,  0, 24,  0
  36. 1350 data   0,190,  0,  0, 60,  0
  37. 1360 data   0, 36,  0,  0, 36,  0
  38. 1370 data   0, 36,  0,  0, 36,  0
  39. 1380 data   0,102,  0, -1
  40. 1390 :
  41. 1400 data   0, 32,  0,  0,  2,  0
  42. 1410 data   0,  0,  0,  2,  0,  0
  43. 1420 data   0,  0, 32,  0, 60,  0
  44. 1430 data   0, 60,  0,  0, 60,  0
  45. 1440 data   8, 60,  0,  0, 24, 16
  46. 1450 data   0,255,152,  1,188,248
  47. 1460 data  13, 60,  0, 15, 24, 64
  48. 1470 data   0, 60,  0,  0, 60,  0
  49. 1480 data   0, 36,  0,  0, 36,  0
  50. 1490 data   0, 36,  0,  0, 38,  0
  51. 1500 data   0, 96,  0, -1
  52. 1510 :
  53. 1520 :
  54. 1530 rem ** sprite register vorbereiten
  55. 1540 :
  56. 1550 print "[147]"      :rem schirm loesch.
  57. 1560 vic = 53248    :rem grafikbaustein
  58. 1570 :
  59. 1580 poke 2040,13   :rem datenzeiger 0
  60. 1590 poke vic,160   :rem horzntl.pos. 0
  61. 1600 poke vic+1,129 :rem vertkal.pos. 0
  62. 1610 poke vic+39,1  :rem 0 ist weiss
  63. 1620 poke vic+29,1  :rem sprite 0 hat
  64. 1630 poke vic+23,1  :rem dopp. groesse
  65. 1640 poke vic+21,1  :rem sprite 0 ein
  66. 1650 :
  67. 1660 :
  68. 1670 rem ** jonglieren beginnt
  69. 1680 :
  70. 1690 image = peek (2040) +1
  71. 1700 if image = 16 then image = 13
  72. 1710 poke 2040, image
  73. 1720 :
  74. 1730 for delay = 1 to 30 : next delay
  75. 1740 :
  76. 1750 :
  77. 1760 rem ** prog.ende nach tastendruck
  78. 1770 :
  79. 1780 get kp$
  80. 1790 if kp$ = "" then 1690
  81. 1810 poke vic+21,0  :rem sprites aus
  82. 1820 poke vic+29,0  :rem und wieder
  83. 1830 poke vic+23,0  :rem normalgroesse
  84. 1840 :
  85. 1850 end
  86.